home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / util / wb / Monitorkiller.lha / MonitorKiller / MonitorKiller-Install next >
Text File  |  1996-10-05  |  2KB  |  130 lines
  1. (set #kickver 
  2.   (shiftright
  3.     (getversion "exec.library" (resident))
  4.     8
  5.   )
  6. )
  7.  
  8. (set #muiexist
  9.   (exists "LIBS:muimaster.library" (noreq))
  10. )
  11.  
  12. (if (> #muiexist 0)    
  13.   (set #muiver
  14.     (shiftright
  15.       (getversion "LIBS:muimaster.library")
  16.        8
  17.     )
  18.   )
  19.   (abort "You need muimaster.library V13 or higher !")
  20. )    
  21.  
  22. (if (< #kickver 38)
  23.   (abort "You need OS3.0 or higher !")
  24. )
  25.  
  26. (if (< #muiver 13)
  27.   (abort "You need version 13 or higher of muimaster.library !")
  28. )
  29.  
  30. (set #language
  31.   (askchoice
  32.     (prompt "Please choose your language:")
  33.     (help "Your language,please !\nIhre Sprache,bitte !\nKielinne,olkaa hyvä !")
  34.     (choices "English" "Deutsch" "Suomenkieli")
  35.   )
  36. )
  37.  
  38. (if (= #language 0)
  39.   ((set #askstring "Please choose your destination directory !\nA directory \"MonitorKiller\" will be created !")
  40.    (set #dir "Data/DrawerEnglish")
  41.   )
  42. )
  43. (if (= #language 1)
  44.   ((set #askstring "Bitte wählen Sie Ihr Zielverzeichnis !\nEin Verzeichnis \"MonitorKiller\" wird geschaffen !")
  45.    (set #dir "Data/DrawerGerman")
  46.   )
  47. )
  48. (if (= #language    2)
  49.   ((set #askstring "Valitsekaa päämääränhakemistonne,olkaa hyvä !\nHakemiston \"MonitorKiller\" on luonut !")
  50.    (set #dir "Data/DrawerSuomi")
  51.   ) 
  52. )
  53.  
  54. (set #path    
  55.   (askdir
  56.       (default @default-dest)
  57.       (prompt #askstring)
  58.     (help @askdir-help)
  59.       (disk)
  60.   )
  61. )
  62.  
  63. (set @default-dest #path)
  64.  
  65. (makedir (tackon #path "MonitorKiller")
  66.   (help @makedir-help)
  67.   (infos)
  68. )
  69.  
  70. (copyfiles
  71.   (help @copyfiles-help)
  72.   (source #dir)
  73.   (dest (tackon #path "MonitorKiller"))
  74.   (nogauge)
  75.   (all)
  76.   (noposition)
  77. )
  78.  
  79. (set #info (cat #dir ".info"))
  80. (set #pathinfo (cat #path ".info"))
  81.  
  82. (delete #pathinfo
  83.   (help @delete-help)
  84.   (optional force)
  85. )
  86.  
  87. (copyfiles
  88.   (help @copyfiles-help)
  89.   (source #info)
  90.   (dest #path)
  91.   (infos)
  92.   (files)
  93.   (newname "MonitorKiller.info")
  94.   (nogauge)
  95.   (noposition)
  96. )    
  97.  
  98. (set #path (tackon #path "MonitorKiller"))
  99.  
  100. (copyfiles
  101.   (help @copyfiles-help)
  102.   (source "Data/MonitorKiller")
  103.   (dest #path)
  104.   (infos)
  105.   (files)
  106.   (nogauge)
  107.   (noposition)
  108. )  
  109.  
  110. (copyfiles
  111.   (help @copyfiles-help)
  112.   (source "Data/Catalogs")
  113.   (dest (tackon #path "Catalogs"))
  114.   (nogauge)
  115.   (infos)
  116.   (pattern "MonitorKiller.c#?")
  117.   (noposition)
  118. )
  119.  
  120. (if 
  121.   (> (exists 
  122.       (tackon #path "Catalogs.info")
  123.       (noreq)
  124.      )
  125.    0)
  126.   (delete (tackon #path "Catalogs.info")
  127.     (help @delete-help)
  128.     (optional force)
  129.   )
  130. )